﻿SUB(имя, $par1, $par2) // подпрограмма с параметрами
   // тело выполняется только после вызова
END_SUB

имя(1,2) // вызов подпрограммы (обязательно ниже подпрограммы)